home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
CALENDAR
/
DIARY-AD.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
5KB
|
39 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 14:34:27 1992
;;; from file /u/jwz/emacs19/lisp/calendar/diary-add.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'insert-diary-entry #[nil "½â┴¬ü┬─┼ «â╞╟!╚\" ╩!êdbê ╠▒*ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t date-string find-file-other-window diary-file " "] 3 "\
Insert a diary entry for the date indicated by point." nil])
(fset 'insert-weekly-diary-entry #[nil "└┴ «â┬├!!┼!êdbê╚▒)ç" [calendar-day-name calendar-cursor-to-date error "Cursor is not on a date!" weekday find-file-other-window diary-file diary-nonmarking-symbol " "] 3 "\
Insert a weekly diary entry for the day of the week indicated by point." nil])
(fset 'insert-monthly-diary-entry #[nil "½â┴¬ü┬─┼ «â╞╟!╚\" ╩!êdbê ╠▒*ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t date-string find-file-other-window diary-file " "] 3 "\
Insert a monthly diary entry for the day of the month indicated by point." nil])
(fset 'insert-annual-diary-entry #[nil "½â┴¬ü┬─┼ «â╞╟!╚\" ╩!êdbê ╠▒*ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t date-string find-file-other-window diary-file " "] 3 "\
Insert an annual diary entry for the day of the year indicated by point." nil])
(fset 'insert-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!! \n╠ !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" hebrew-date calendar-hebrew-month-name-array-leap-year calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file hebrew-diary-entry-symbol " "] 4 "\
Insert a diary entry for the Hebrew date corresponding to the date
indicated by point." nil])
(fset 'insert-monthly-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!! \n╠ !╬!êdbê╤▒,ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" hebrew-date calendar-hebrew-month-name-array-leap-year calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file hebrew-diary-entry-symbol " "] 4 "\
Insert a monthly diary entry for the day of the Hebrew month corresponding
to the date indicated by point." nil])
(fset 'insert-annual-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!! \n╠ !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" hebrew-date calendar-hebrew-month-name-array-leap-year calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file hebrew-diary-entry-symbol " "] 4 "\
Insert an annual diary entry for the day of the Hebrew year corresponding
to the date indicated by point." nil])
(fset 'insert-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!! \n╠ !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" islamic-date calendar-islamic-month-name-array calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file islamic-diary-entry-symbol " "] 4 "\
Insert a diary entry for the Islamic date corresponding to the date
indicated by point." nil])
(fset 'insert-monthly-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!! \n╠ !╬!êdbê╤▒,ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" islamic-date calendar-islamic-month-name-array calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file islamic-diary-entry-symbol " "] 4 "\
Insert a monthly diary entry for the day of the Islamic month corresponding
to the date indicated by point." nil])
(fset 'insert-annual-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!! \n╠ !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" islamic-date calendar-islamic-month-name-array calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file islamic-diary-entry-symbol " "] 4 "\
Insert an annual diary entry for the day of the Islamic year corresponding
to the date indicated by point." nil])